home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xwindowattributes.t < prev    next >
Text File  |  1990-06-01  |  5KB  |  102 lines
  1. (herald xwindowattributes (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XWINDOWATTRIBUTES)
  3.         (CONS 'XWINDOWATTRIBUTESP (MAKE-BYTEV 92)))
  4. (DEFINE (XWINDOWATTRIBUTES-X X) (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 0))
  5. (DEFINE (XWINDOWATTRIBUTES-X! X Y)
  6.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 0 Y))
  7. (DEFINE (XWINDOWATTRIBUTES-Y X) (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 4))
  8. (DEFINE (XWINDOWATTRIBUTES-Y! X Y)
  9.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 4 Y))
  10. (DEFINE (XWINDOWATTRIBUTES-WIDTH X) (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 8))
  11. (DEFINE (XWINDOWATTRIBUTES-WIDTH! X Y)
  12.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 8 Y))
  13. (DEFINE (XWINDOWATTRIBUTES-HEIGHT X)
  14.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 12))
  15. (DEFINE (XWINDOWATTRIBUTES-HEIGHT! X Y)
  16.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 12 Y))
  17. (DEFINE (XWINDOWATTRIBUTES-BORDER_WIDTH X)
  18.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 16))
  19. (DEFINE (XWINDOWATTRIBUTES-BORDER_WIDTH! X Y)
  20.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 16 Y))
  21. (DEFINE (XWINDOWATTRIBUTES-DEPTH X)
  22.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 20))
  23. (DEFINE (XWINDOWATTRIBUTES-DEPTH! X Y)
  24.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 20 Y))
  25. (DEFINE (XWINDOWATTRIBUTES-VISUAL X)
  26.         ((LAMBDA (X Y) (CONS 'VISUALP (MREF-POINTER X Y)))
  27.          (CHK-XWINDOWATTRIBUTESP X)
  28.          24))
  29. (DEFINE (XWINDOWATTRIBUTES-VISUAL! X Y)
  30.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-VISUALP Z)))
  31.          (CHK-XWINDOWATTRIBUTESP X)
  32.          24
  33.          Y))
  34. (DEFINE (XWINDOWATTRIBUTES-ROOT X) (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 28))
  35. (DEFINE (XWINDOWATTRIBUTES-ROOT! X Y)
  36.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 28 Y))
  37. (DEFINE (XWINDOWATTRIBUTES-CLASS X)
  38.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 32))
  39. (DEFINE (XWINDOWATTRIBUTES-CLASS! X Y)
  40.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 32 Y))
  41. (DEFINE (XWINDOWATTRIBUTES-BIT_GRAVITY X)
  42.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 36))
  43. (DEFINE (XWINDOWATTRIBUTES-BIT_GRAVITY! X Y)
  44.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 36 Y))
  45. (DEFINE (XWINDOWATTRIBUTES-WIN_GRAVITY X)
  46.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 40))
  47. (DEFINE (XWINDOWATTRIBUTES-WIN_GRAVITY! X Y)
  48.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 40 Y))
  49. (DEFINE (XWINDOWATTRIBUTES-BACKING_STORE X)
  50.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 44))
  51. (DEFINE (XWINDOWATTRIBUTES-BACKING_STORE! X Y)
  52.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 44 Y))
  53. (DEFINE (XWINDOWATTRIBUTES-BACKING_PLANES X)
  54.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 48))
  55. (DEFINE (XWINDOWATTRIBUTES-BACKING_PLANES! X Y)
  56.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 48 Y))
  57. (DEFINE (XWINDOWATTRIBUTES-BACKING_PIXEL X)
  58.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 52))
  59. (DEFINE (XWINDOWATTRIBUTES-BACKING_PIXEL! X Y)
  60.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 52 Y))
  61. (DEFINE (XWINDOWATTRIBUTES-SAVE_UNDER X)
  62.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 56))
  63. (DEFINE (XWINDOWATTRIBUTES-SAVE_UNDER! X Y)
  64.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 56 Y))
  65. (DEFINE (XWINDOWATTRIBUTES-COLORMAP X)
  66.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 60))
  67. (DEFINE (XWINDOWATTRIBUTES-COLORMAP! X Y)
  68.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 60 Y))
  69. (DEFINE (XWINDOWATTRIBUTES-MAP_INSTALLED X)
  70.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 64))
  71. (DEFINE (XWINDOWATTRIBUTES-MAP_INSTALLED! X Y)
  72.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 64 Y))
  73. (DEFINE (XWINDOWATTRIBUTES-MAP_STATE X)
  74.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 68))
  75. (DEFINE (XWINDOWATTRIBUTES-MAP_STATE! X Y)
  76.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 68 Y))
  77. (DEFINE (XWINDOWATTRIBUTES-ALL_EVENT_MASKS X)
  78.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 72))
  79. (DEFINE (XWINDOWATTRIBUTES-ALL_EVENT_MASKS! X Y)
  80.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 72 Y))
  81. (DEFINE (XWINDOWATTRIBUTES-YOUR_EVENT_MASK X)
  82.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 76))
  83. (DEFINE (XWINDOWATTRIBUTES-YOUR_EVENT_MASK! X Y)
  84.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 76 Y))
  85. (DEFINE (XWINDOWATTRIBUTES-DO_NOT_PROPAGATE_MASK X)
  86.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 80))
  87. (DEFINE (XWINDOWATTRIBUTES-DO_NOT_PROPAGATE_MASK! X Y)
  88.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 80 Y))
  89. (DEFINE (XWINDOWATTRIBUTES-OVERRIDE_REDIRECT X)
  90.         (MREF-INTEGER (CHK-XWINDOWATTRIBUTESP X) 84))
  91. (DEFINE (XWINDOWATTRIBUTES-OVERRIDE_REDIRECT! X Y)
  92.         (SET-MREF-INTEGER! (CHK-XWINDOWATTRIBUTESP X) 84 Y))
  93. (DEFINE (XWINDOWATTRIBUTES-SCREEN X)
  94.         ((LAMBDA (X Y) (CONS 'SCREENP (MREF-POINTER X Y)))
  95.          (CHK-XWINDOWATTRIBUTESP X)
  96.          88))
  97. (DEFINE (XWINDOWATTRIBUTES-SCREEN! X Y)
  98.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-SCREENP Z)))
  99.          (CHK-XWINDOWATTRIBUTESP X)
  100.          88
  101.          Y))
  102.